Option Explicit
'ۭqҲ
Dim mySrtFlg As Boolean
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    'w}C
    myAr = Worksheets("L_Data01").Range("C2:D11").Value
    With ComboBox1
        'wզXݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .List = myAr
    End With
mySrtFlg = True						'H@Ƨǃg
End Sub

Private Sub CommandButton1_Click()
    Dim mySht As Worksheet
    Dim myAr  As Variant
    Dim myOdr As Long
    Select Case mySrtFlg
        Case True
            MsgBox "N2H@Ƨ"
            myOdr = xlAscending
        Case False
            MsgBox "N2HƧ"
            myOdr = xlDescending
    End Select
    Application.ScreenUpdating = False
    myAr = ComboBox1.List
    With Worksheets.Add
        With .Cells(1, 1).Resize(UBound(myAr, 1) + 1, UBound(myAr, 2) + 1)
            .Value = myAr
            .Sort Key1:=.Range("B1"), Order1:=myOdr, Header:=xlNo
            myAr = .Value
        End With
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
    ComboBox1.List = myAr
    mySrtFlg = Not mySrtFlg
    Application.ScreenUpdating = True
    Set mySht = Nothing					'
End Sub
